; perl-mode, cperl-mode: Fix $\" in strings (Bug#69604)
authorHarald Jörg <haj@posteo.de>
Thu, 7 Mar 2024 23:37:36 +0000 (00:37 +0100)
committerHarald Jörg <haj@posteo.de>
Thu, 7 Mar 2024 23:41:32 +0000 (00:41 +0100)
commit00f86833ac5423d57825213ef8b611978be0a3eb
treef25e8cc5a730498a0c9991ba98ea9074ae19628a
parente42f14f0e034d0b20c6b9fd0fea23686699e7df0
; perl-mode, cperl-mode: Fix $\" in strings (Bug#69604)

* lisp/progmodes/perl-mode.el (perl-syntax-propertize-function):
Add to syntax-propertize-rules that $ is punctuation in strings.

* lisp/progmodes/cperl-mode.el (cperl-find-pods-heres): capture $\
to catch the edge case of "$\"".  Make $ a punctuation char in
strings and comments.

* test/lisp/progmodes/cperl-mode-tests.el (cperl-test-bug-69604):
New testcases with various combinations of $ " \
lisp/progmodes/cperl-mode.el
lisp/progmodes/perl-mode.el
test/lisp/progmodes/cperl-mode-tests.el